home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 47.7z / BS1 part 47 / HiSoft BASIC v1.04 (1989)(HiSoft)(Disk 2 of 2)[h Band].7z / HiSoft BASIC v1.04 (1989)(HiSoft)(Disk 2 of 2)[h Band].adf / first.bas < prev    next >
Encoding:
BASIC Source File  |  1988-12-02  |  185 b   |  10 lines
  1. REM Your first HiSoft BASIC program
  2. REM as described on page 9 of the manual.
  3.  
  4. t=TIMER
  5. DO WHILE TIMER<t+20
  6.   x=MOUSE(1) : y=MOUSE(2)
  7.   IF MOUSE(0) THEN LINE (x,y)-(x+30,y+30),,bf
  8. LOOP
  9.  
  10.